﻿Public Class DCAlumnoTranslator
    Public Shared Function ToBusiness _
            (ByVal from As ServiceContracts.DCAlumno) _
              As BusinessEntities.Alumno

        Dim target As New BusinessEntities.Alumno
        target.id = New Guid(from.Id)
        target.nombre = from.Nombre
        target.edad = from.Edad
        Return target
    End Function
    Public Shared Function ToService _
        (ByVal from As BusinessEntities.Alumno) _
         As ServiceContracts.DCAlumno
        Dim target As New ServiceContracts.DCAlumno
        target.Id = from.id.ToString()
        target.Nombre = from.nombre
        target.Edad = from.edad
        Return target
    End Function
End Class
